home *** CD-ROM | disk | FTP | other *** search
/ Future Workshop / Future Workshop.iso / utility / formula1 / vcform1.3 / VB4 / SSMDI / ALLOWOPT.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1995-09-15  |  7.1 KB  |  218 lines
  1. VERSION 4.00
  2. Begin VB.Form AllowOptions 
  3.    Caption         =   "Allow Options"
  4.    ClientHeight    =   2355
  5.    ClientLeft      =   3330
  6.    ClientTop       =   1020
  7.    ClientWidth     =   5385
  8.    ForeColor       =   &H80000008&
  9.    Height          =   2760
  10.    Icon            =   "Allowopt.frx":0000
  11.    Left            =   3270
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2355
  16.    ScaleMode       =   0  'User
  17.    ScaleWidth      =   4403.679
  18.    Top             =   675
  19.    Width           =   5505
  20.    Begin VB.CheckBox InCellEditing 
  21.       Caption         =   "&In Cell Editing"
  22.       BeginProperty Font 
  23.          name            =   "MS Sans Serif"
  24.          charset         =   0
  25.          weight          =   700
  26.          size            =   8.25
  27.          underline       =   0   'False
  28.          italic          =   0   'False
  29.          strikethrough   =   0   'False
  30.       EndProperty
  31.       Height          =   495
  32.       Left            =   3600
  33.       TabIndex        =   8
  34.       Top             =   1800
  35.       Width           =   2295
  36.    End
  37.    Begin VB.CheckBox Formulas 
  38.       Caption         =   "Formula &Editing"
  39.       BeginProperty Font 
  40.          name            =   "MS Sans Serif"
  41.          charset         =   0
  42.          weight          =   700
  43.          size            =   8.25
  44.          underline       =   0   'False
  45.          italic          =   0   'False
  46.          strikethrough   =   0   'False
  47.       EndProperty
  48.       Height          =   495
  49.       Left            =   3600
  50.       TabIndex        =   7
  51.       Top             =   1440
  52.       Width           =   2295
  53.    End
  54.    Begin VB.CheckBox Resize 
  55.       Caption         =   "&Resize Rows & Columns"
  56.       BeginProperty Font 
  57.          name            =   "MS Sans Serif"
  58.          charset         =   0
  59.          weight          =   700
  60.          size            =   8.25
  61.          underline       =   0   'False
  62.          italic          =   0   'False
  63.          strikethrough   =   0   'False
  64.       EndProperty
  65.       Height          =   495
  66.       Left            =   240
  67.       TabIndex        =   6
  68.       Top             =   1800
  69.       Width           =   2535
  70.    End
  71.    Begin VB.CheckBox MoveRange 
  72.       Caption         =   "&Move Range"
  73.       BeginProperty Font 
  74.          name            =   "MS Sans Serif"
  75.          charset         =   0
  76.          weight          =   700
  77.          size            =   8.25
  78.          underline       =   0   'False
  79.          italic          =   0   'False
  80.          strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   495
  83.       Left            =   240
  84.       TabIndex        =   5
  85.       Top             =   1440
  86.       Width           =   1695
  87.    End
  88.    Begin VB.CheckBox FillRange 
  89.       Caption         =   "&Fill Range"
  90.       BeginProperty Font 
  91.          name            =   "MS Sans Serif"
  92.          charset         =   0
  93.          weight          =   700
  94.          size            =   8.25
  95.          underline       =   0   'False
  96.          italic          =   0   'False
  97.          strikethrough   =   0   'False
  98.       EndProperty
  99.       Height          =   495
  100.       Left            =   240
  101.       TabIndex        =   4
  102.       Top             =   1080
  103.       Width           =   1215
  104.    End
  105.    Begin VB.CheckBox Selections 
  106.       Caption         =   "&Selections"
  107.       BeginProperty Font 
  108.          name            =   "MS Sans Serif"
  109.          charset         =   0
  110.          weight          =   700
  111.          size            =   8.25
  112.          underline       =   0   'False
  113.          italic          =   0   'False
  114.          strikethrough   =   0   'False
  115.       EndProperty
  116.       Height          =   495
  117.       Left            =   240
  118.       TabIndex        =   3
  119.       Top             =   720
  120.       Width           =   1215
  121.    End
  122.    Begin VB.CheckBox AppLaunch 
  123.       Caption         =   "&Application Launch"
  124.       BeginProperty Font 
  125.          name            =   "MS Sans Serif"
  126.          charset         =   0
  127.          weight          =   700
  128.          size            =   8.25
  129.          underline       =   0   'False
  130.          italic          =   0   'False
  131.          strikethrough   =   0   'False
  132.       EndProperty
  133.       Height          =   255
  134.       Left            =   240
  135.       TabIndex        =   2
  136.       Top             =   240
  137.       Visible         =   0   'False
  138.       Width           =   2295
  139.    End
  140.    Begin VB.CommandButton Command2 
  141.       BackColor       =   &H00C0C0C0&
  142.       Cancel          =   -1  'True
  143.       Caption         =   "Cancel"
  144.       BeginProperty Font 
  145.          name            =   "MS Sans Serif"
  146.          charset         =   0
  147.          weight          =   700
  148.          size            =   8.25
  149.          underline       =   0   'False
  150.          italic          =   0   'False
  151.          strikethrough   =   0   'False
  152.       EndProperty
  153.       Height          =   375
  154.       Left            =   4080
  155.       TabIndex        =   1
  156.       Top             =   720
  157.       Width           =   1095
  158.    End
  159.    Begin VB.CommandButton Command1 
  160.       BackColor       =   &H00C0C0C0&
  161.       Caption         =   "OK"
  162.       Default         =   -1  'True
  163.       BeginProperty Font 
  164.          name            =   "MS Sans Serif"
  165.          charset         =   0
  166.          weight          =   700
  167.          size            =   8.25
  168.          underline       =   0   'False
  169.          italic          =   0   'False
  170.          strikethrough   =   0   'False
  171.       EndProperty
  172.       Height          =   375
  173.       Left            =   4080
  174.       TabIndex        =   0
  175.       Top             =   240
  176.       Width           =   1095
  177.    End
  178. Attribute VB_Name = "AllowOptions"
  179. Attribute VB_Creatable = False
  180. Attribute VB_Exposed = False
  181. Option Explicit
  182. Private Sub Command1_Click()
  183.    '' Set the values in the currently active spreadsheet
  184.    '' according to the values selected in the allow options form
  185.    MainFrame.ActiveForm.SS.AllowSelections = Selections.VALUE
  186.    MainFrame.ActiveForm.SS.AllowFillRange = FillRange.VALUE
  187.    MainFrame.ActiveForm.SS.AllowMoveRange = MoveRange.VALUE
  188.    MainFrame.ActiveForm.SS.AllowResize = Resize.VALUE
  189.    MainFrame.ActiveForm.SS.AllowFormulas = Formulas.VALUE
  190.    MainFrame.ActiveForm.SS.AllowInCellEditing = InCellEditing.VALUE
  191.    AllowOptions.Hide
  192. End Sub
  193. Private Sub Command2_Click()
  194.     AllowOptions.Hide
  195. End Sub
  196. Private Sub Form_Load()
  197.    '' Set the values in the allow options form according
  198.    '' to the values in the currently active spreadsheet
  199.    If MainFrame.ActiveForm.SS.AllowSelections Then
  200.       Selections.VALUE = 1
  201.    End If
  202.    If MainFrame.ActiveForm.SS.AllowFillRange Then
  203.       FillRange.VALUE = 1
  204.    End If
  205.    If MainFrame.ActiveForm.SS.AllowMoveRange Then
  206.       MoveRange.VALUE = 1
  207.    End If
  208.    If MainFrame.ActiveForm.SS.AllowResize Then
  209.       Resize.VALUE = 1
  210.    End If
  211.    If MainFrame.ActiveForm.SS.AllowFormulas Then
  212.       Formulas.VALUE = 1
  213.    End If
  214.    If MainFrame.ActiveForm.SS.AllowInCellEditing Then
  215.       InCellEditing.VALUE = 1
  216.    End If
  217. End Sub
  218.